Ultra Gameplayers 101/Ultra Game Players Magazine, No. 101 - September 1997 (Imagine Publishing, Inc.)(1997).iso/pc/new_ugp.dxr/00282_Text Slide Button Class.ls

Text File | 1997-07-10 | 596 b | 31 lines

property textDisplay, scrollDirection, ancestor

on new me, paramList
  set scrollDirection to getProp(paramList, #scrollDirection)
  set textDisplay to the textDisplay of the currMenu of GetGlobal(#gTitleObject)
  return me
end

on TurnOn me
  if scrollDirection = #up then
    repeat while the mouseDown
      ScrollLines(textDisplay, -1)
    end repeat
  else
    repeat while the mouseDown
      ScrollLines(textDisplay, 1)
    end repeat
  end if
end

on TurnOff me
end

on dispose me
  set textDisplay to 0
  if objectp(ancestor) then
    dispose(ancestor)
  end if
  set ancestor to 0
end